object FrmNotaServico: TFrmNotaServico
  Left = 331
  Top = 153
  Width = 829
  Height = 650
  Caption = 'Nota Fiscal de Servi'#231'o'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 40
    Width = 821
    Height = 576
    Align = alClient
    TabOrder = 0
    object Label2: TLabel
      Left = 72
      Top = 48
      Width = 111
      Height = 13
      Caption = 'Natureza da Opera'#231#227'o:'
    end
    object Label3: TLabel
      Left = 448
      Top = 48
      Width = 125
      Height = 13
      Caption = 'Condi'#231#245'es de Pagamento:'
    end
    object Label20: TLabel
      Left = 8
      Top = 8
      Width = 121
      Height = 13
      Caption = 'N'#250'mero da Pr'#243'xima Nota:'
    end
    object Label21: TLabel
      Left = 8
      Top = 48
      Width = 31
      Height = 13
      Caption = 'CFOP:'
    end
    object gbxDestinatario: TGroupBox
      Left = 8
      Top = 88
      Width = 801
      Height = 145
      Caption = 'Destinat'#225'rio:'
      TabOrder = 0
      object Label1: TLabel
        Left = 160
        Top = 16
        Width = 105
        Height = 13
        Caption = 'Nome / Raz'#227'o Social:'
      end
      object Label4: TLabel
        Left = 8
        Top = 16
        Width = 55
        Height = 13
        Caption = 'CPF/CNPJ:'
      end
      object Label5: TLabel
        Left = 8
        Top = 56
        Width = 49
        Height = 13
        Caption = 'Endere'#231'o:'
      end
      object Label6: TLabel
        Left = 496
        Top = 56
        Width = 67
        Height = 13
        Caption = 'Bairro/Distrito:'
      end
      object Label7: TLabel
        Left = 672
        Top = 56
        Width = 24
        Height = 13
        Caption = 'CEP:'
      end
      object Label8: TLabel
        Left = 8
        Top = 96
        Width = 50
        Height = 13
        Caption = 'Munic'#237'pio:'
      end
      object Label9: TLabel
        Left = 496
        Top = 96
        Width = 49
        Height = 13
        Caption = 'Fone/Fax:'
      end
      object Label10: TLabel
        Left = 632
        Top = 96
        Width = 17
        Height = 13
        Caption = 'UF:'
      end
      object Label11: TLabel
        Left = 672
        Top = 96
        Width = 90
        Height = 13
        Caption = 'Inscri'#231#227'o Estadual:'
      end
      object dbedtNome: TDBEdit
        Left = 160
        Top = 32
        Width = 633
        Height = 21
        CharCase = ecUpperCase
        DataField = 'NFI_DESTNOME'
        DataSource = dsNotas
        TabOrder = 0
      end
      object dbedtCPFCNPJ: TDBEdit
        Left = 8
        Top = 32
        Width = 145
        Height = 21
        CharCase = ecUpperCase
        DataField = 'NFI_DESTCNPJ'
        DataSource = dsNotas
        TabOrder = 1
        OnExit = dbedtCPFCNPJExit
      end
      object dbedtEndereco: TDBEdit
        Left = 8
        Top = 72
        Width = 481
        Height = 21
        CharCase = ecUpperCase
        DataField = 'NFI_DESTENDERECO'
        DataSource = dsNotas
        TabOrder = 2
      end
      object dbedtBairro: TDBEdit
        Left = 496
        Top = 72
        Width = 169
        Height = 21
        CharCase = ecUpperCase
        DataField = 'NFI_DESTBAIRRO'
        DataSource = dsNotas
        TabOrder = 3
      end
      object dbedtCep: TDBEdit
        Left = 672
        Top = 72
        Width = 121
        Height = 21
        CharCase = ecUpperCase
        DataField = 'NFI_DESTCEP'
        DataSource = dsNotas
        TabOrder = 4
      end
      object dbedtMunicipio: TDBEdit
        Left = 8
        Top = 112
        Width = 481
        Height = 21
        CharCase = ecUpperCase
        DataField = 'NFI_DESTMUNICIPIO'
        DataSource = dsNotas
        TabOrder = 5
      end
      object dbedtFoneFax: TDBEdit
        Left = 496
        Top = 112
        Width = 129
        Height = 21
        CharCase = ecUpperCase
        DataField = 'NFI_DESTFONEFAX'
        DataSource = dsNotas
        TabOrder = 6
      end
      object dbedtUf: TDBEdit
        Left = 632
        Top = 112
        Width = 33
        Height = 21
        CharCase = ecUpperCase
        DataField = 'NFI_DESTUF'
        DataSource = dsNotas
        TabOrder = 7
      end
      object dbedtIE: TDBEdit
        Left = 672
        Top = 112
        Width = 121
        Height = 21
        CharCase = ecUpperCase
        DataField = 'NFI_DESTIE'
        DataSource = dsNotas
        TabOrder = 8
      end
    end
    object gbxDadosAdicionais: TGroupBox
      Left = 8
      Top = 432
      Width = 801
      Height = 105
      Caption = 'Dados Adicionais e Impostos:'
      TabOrder = 1
      object Label12: TLabel
        Left = 497
        Top = 16
        Width = 78
        Height = 13
        Caption = 'Al'#237'quota do ISS:'
      end
      object Label13: TLabel
        Left = 496
        Top = 56
        Width = 62
        Height = 13
        Caption = 'Valor do ISS:'
      end
      object Label14: TLabel
        Left = 648
        Top = 56
        Width = 91
        Height = 13
        Caption = 'Valor dos Servi'#231'os:'
      end
      object Label15: TLabel
        Left = 648
        Top = 16
        Width = 68
        Height = 13
        Caption = 'Valor da Nota:'
      end
      object stServicos: TStaticText
        Left = 648
        Top = 72
        Width = 145
        Height = 21
        AutoSize = False
        BorderStyle = sbsSingle
        TabOrder = 0
      end
      object stValorNota: TStaticText
        Left = 648
        Top = 32
        Width = 145
        Height = 21
        AutoSize = False
        BorderStyle = sbsSingle
        TabOrder = 1
      end
      object dbedtDadosAd: TDBMemo
        Left = 8
        Top = 20
        Width = 473
        Height = 74
        DataField = 'NFI_DADOSADICIONAIS'
        DataSource = dsNotas
        ScrollBars = ssVertical
        TabOrder = 2
        OnKeyPress = dbmemDescricaoKeyPress
      end
      object dbedtIss: TDBEdit
        Left = 496
        Top = 72
        Width = 145
        Height = 21
        CharCase = ecUpperCase
        DataField = 'NFI_TOTISS'
        DataSource = dsNotas
        ReadOnly = True
        TabOrder = 3
      end
      object edtPerISS: TDBEdit
        Left = 496
        Top = 32
        Width = 145
        Height = 21
        CharCase = ecUpperCase
        DataField = 'NFI_ALIQUOTAISS'
        DataSource = dsNotas
        TabOrder = 4
        OnExit = edtPerISSExit
      end
    end
    object btnImprimir: TBitBtn
      Left = 656
      Top = 544
      Width = 75
      Height = 25
      Caption = 'Imprimir'
      TabOrder = 2
      OnClick = btnImprimirClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
        0003377777777777777308888888888888807F33333333333337088888888888
        88807FFFFFFFFFFFFFF7000000000000000077777777777777770F8F8F8F8F8F
        8F807F333333333333F708F8F8F8F8F8F9F07F333333333337370F8F8F8F8F8F
        8F807FFFFFFFFFFFFFF7000000000000000077777777777777773330FFFFFFFF
        03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
        03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
        33333337F3F37F3733333330F08F0F0333333337F7337F7333333330FFFF0033
        33333337FFFF7733333333300000033333333337777773333333}
      NumGlyphs = 2
    end
    object BitBtn2: TBitBtn
      Left = 734
      Top = 544
      Width = 75
      Height = 25
      Caption = '&Fechar'
      TabOrder = 3
      Kind = bkClose
    end
    object gbxServico: TGroupBox
      Left = 8
      Top = 232
      Width = 801
      Height = 201
      TabOrder = 4
      object Label17: TLabel
        Left = 8
        Top = 9
        Width = 51
        Height = 13
        Caption = 'Descri'#231#227'o:'
      end
      object Label18: TLabel
        Left = 8
        Top = 156
        Width = 66
        Height = 13
        Caption = 'Valor Unit'#225'rio:'
      end
      object Label19: TLabel
        Left = 136
        Top = 156
        Width = 54
        Height = 13
        Caption = 'Valor Total:'
      end
      object dbmemDescricao: TDBMemo
        Left = 8
        Top = 32
        Width = 785
        Height = 121
        DataField = 'NFS_DESCRICAO'
        DataSource = dsItensServico
        Font.Charset = ARABIC_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'Courier'
        Font.Style = []
        ParentFont = False
        ScrollBars = ssVertical
        TabOrder = 0
        OnKeyPress = dbmemDescricaoKeyPress
      end
      object dbedtValorUnitario: TDBEdit
        Left = 8
        Top = 169
        Width = 121
        Height = 21
        CharCase = ecUpperCase
        DataField = 'NFS_VALOR_UNITARIO'
        DataSource = dsItensServico
        TabOrder = 1
        OnExit = dbedtValorUnitarioExit
      end
      object dbedtValorTotal: TDBEdit
        Left = 136
        Top = 169
        Width = 121
        Height = 21
        CharCase = ecUpperCase
        DataField = 'NFS_VALOR_TOTAL'
        DataSource = dsItensServico
        TabOrder = 2
      end
    end
    object dbedtNumeroProxima: TDBEdit
      Left = 8
      Top = 24
      Width = 113
      Height = 21
      CharCase = ecUpperCase
      DataField = 'NFI_NUMERO'
      DataSource = dsNotas
      TabOrder = 5
      OnExit = dbedtNumeroProximaExit
    end
    object dbedtCFOP: TDBEdit
      Left = 8
      Top = 64
      Width = 57
      Height = 21
      CharCase = ecUpperCase
      DataField = 'NFI_CFOP'
      DataSource = dsNotas
      TabOrder = 6
      OnExit = dbedtCFOPExit
    end
    object dbedtNatureza: TDBEdit
      Left = 72
      Top = 64
      Width = 369
      Height = 21
      CharCase = ecUpperCase
      DataField = 'NFI_NATUREZAOPERACAO'
      DataSource = dsNotas
      TabOrder = 7
    end
    object dbedtCondPag: TDBEdit
      Left = 448
      Top = 64
      Width = 297
      Height = 21
      CharCase = ecUpperCase
      DataField = 'NFI_CONDICOESPAGAMENTO'
      DataSource = dsNotas
      TabOrder = 8
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 0
    Width = 821
    Height = 40
    Align = alTop
    BevelInner = bvLowered
    BorderWidth = 2
    Caption = 'Nota Fiscal de Servi'#231'o'
    Color = clWhite
    Ctl3D = True
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlue
    Font.Height = -27
    Font.Name = 'Times New Roman'
    Font.Style = [fsBold, fsItalic]
    ParentCtl3D = False
    ParentFont = False
    TabOrder = 1
  end
  object dsNotas: TDataSource
    AutoEdit = False
    DataSet = SQLC_NotasFiscais
    Left = 288
    Top = 8
  end
  object SQLC_NotasFiscais: TSQLClientDataSet
    CommandText = 'select * from NOTAS_FISCAIS WHERE NFI_IDF =  :NFI_IDF'
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <
      item
        DataType = ftInteger
        Name = 'NFI_IDF'
        ParamType = ptInput
      end>
    AfterOpen = SQLC_NotasFiscaisAfterOpen
    AfterInsert = SQLC_NotasFiscaisAfterInsert
    DBConnection = DtmGeral.ConexaoBanco
    Left = 384
    Top = 16
    object SQLC_NotasFiscaisNFI_IDF: TIntegerField
      DisplayLabel = 'IDF'
      FieldName = 'NFI_IDF'
      Required = True
    end
    object SQLC_NotasFiscaisNFI_NATUREZAOPERACAO: TStringField
      DisplayLabel = 'Natureza da Opera'#231#227'o'
      FieldName = 'NFI_NATUREZAOPERACAO'
      Size = 150
    end
    object SQLC_NotasFiscaisNFI_CONDICOESPAGAMENTO: TStringField
      DisplayLabel = 'Condi'#231#245'es de Pagamento'
      FieldName = 'NFI_CONDICOESPAGAMENTO'
      Size = 62
    end
    object SQLC_NotasFiscaisNFI_CFOP: TStringField
      DisplayLabel = 'CFOP'
      FieldName = 'NFI_CFOP'
      Size = 8
    end
    object SQLC_NotasFiscaisNFI_DESTCNPJ: TStringField
      DisplayLabel = 'CPF/CNPJ do Destinat'#225'rio'
      FieldName = 'NFI_DESTCNPJ'
      Required = True
    end
    object SQLC_NotasFiscaisNFI_DESTENDERECO: TStringField
      DisplayLabel = 'Endere'#231'o do Destinat'#225'rio'
      FieldName = 'NFI_DESTENDERECO'
      Required = True
      Size = 60
    end
    object SQLC_NotasFiscaisNFI_DESTMUNICIPIO: TStringField
      DisplayLabel = 'Munic'#237'pio do Destinat'#225'rio'
      FieldName = 'NFI_DESTMUNICIPIO'
      Required = True
      Size = 60
    end
    object SQLC_NotasFiscaisNFI_DESTFONEFAX: TStringField
      DisplayLabel = 'Telefone do Destinat'#225'rio'
      FieldName = 'NFI_DESTFONEFAX'
      Size = 15
    end
    object SQLC_NotasFiscaisNFI_DESTUF: TStringField
      DisplayLabel = 'UF do Destinat'#225'rio'
      FieldName = 'NFI_DESTUF'
      Required = True
      FixedChar = True
      Size = 2
    end
    object SQLC_NotasFiscaisNFI_DESTIE: TStringField
      DisplayLabel = 'Identidade/Inscri'#231#227'o Estadual do Destinat'#225'rio'
      FieldName = 'NFI_DESTIE'
    end
    object SQLC_NotasFiscaisNFI_EMISSAO: TSQLTimeStampField
      DisplayLabel = 'Data de Emiss'#227'o'
      FieldName = 'NFI_EMISSAO'
    end
    object SQLC_NotasFiscaisNFI_TIPONOTA: TStringField
      DisplayLabel = 'Tipo de Nota'
      FieldName = 'NFI_TIPONOTA'
      Required = True
      FixedChar = True
      Size = 1
    end
    object SQLC_NotasFiscaisNFI_TIPOFRETE: TStringField
      DisplayLabel = 'Tipo de Frete'
      FieldName = 'NFI_TIPOFRETE'
      FixedChar = True
      Size = 1
    end
    object SQLC_NotasFiscaisNFI_TOTBASEDECALCULO: TFMTBCDField
      DisplayLabel = 'Base de C'#225'lculo'
      FieldName = 'NFI_TOTBASEDECALCULO'
      Precision = 15
      Size = 3
    end
    object SQLC_NotasFiscaisNFI_TOTICMS: TFMTBCDField
      DisplayLabel = 'ICMS'
      FieldName = 'NFI_TOTICMS'
      Precision = 15
      Size = 3
    end
    object SQLC_NotasFiscaisNFI_TOTBASEST: TFMTBCDField
      FieldName = 'NFI_TOTBASEST'
      Precision = 15
      Size = 3
    end
    object SQLC_NotasFiscaisNFI_TOTICMSST: TFMTBCDField
      FieldName = 'NFI_TOTICMSST'
      Precision = 15
      Size = 3
    end
    object SQLC_NotasFiscaisNFI_TOTVALOR_FRETE: TFMTBCDField
      FieldName = 'NFI_TOTVALOR_FRETE'
      Precision = 15
      Size = 3
    end
    object SQLC_NotasFiscaisNFI_TOTVALOR_SEGURO: TFMTBCDField
      FieldName = 'NFI_TOTVALOR_SEGURO'
      Precision = 15
      Size = 3
    end
    object SQLC_NotasFiscaisNFI_TOTOUTRASDESP: TFMTBCDField
      FieldName = 'NFI_TOTOUTRASDESP'
      Precision = 15
      Size = 3
    end
    object SQLC_NotasFiscaisNFI_TOTVALORIPI: TFMTBCDField
      FieldName = 'NFI_TOTVALORIPI'
      Precision = 15
      Size = 3
    end
    object SQLC_NotasFiscaisNFI_TOTISS: TFMTBCDField
      FieldName = 'NFI_TOTISS'
      Precision = 15
      Size = 3
    end
    object SQLC_NotasFiscaisNFI_DADOSADICIONAIS: TMemoField
      FieldName = 'NFI_DADOSADICIONAIS'
      BlobType = ftMemo
      Size = 1
    end
    object SQLC_NotasFiscaisNFI_DESTBAIRRO: TStringField
      FieldName = 'NFI_DESTBAIRRO'
      Required = True
      Size = 60
    end
    object SQLC_NotasFiscaisNFI_DESTCEP: TStringField
      FieldName = 'NFI_DESTCEP'
      Size = 12
    end
    object SQLC_NotasFiscaisNFI_NUMERO: TIntegerField
      DisplayLabel = 'N'#250'mero da Nota'
      FieldName = 'NFI_NUMERO'
      Required = True
    end
    object SQLC_NotasFiscaisNFI_ALIQUOTAISS: TFMTBCDField
      FieldName = 'NFI_ALIQUOTAISS'
      Precision = 15
      Size = 3
    end
    object SQLC_NotasFiscaisNFI_DESTNOME: TStringField
      DisplayLabel = 'Nome do Destinat'#225'rio'
      FieldName = 'NFI_DESTNOME'
      Required = True
      Size = 80
    end
    object SQLC_NotasFiscaisNFI_DATAENTRADASAIDA: TDateField
      FieldName = 'NFI_DATAENTRADASAIDA'
    end
    object SQLC_NotasFiscaisNFI_HORAENTRADASAIDA: TTimeField
      FieldName = 'NFI_HORAENTRADASAIDA'
    end
  end
  object SQLC_ItensServico: TSQLClientDataSet
    CommandText = 'select * from NOTAS_FISCAIS_SERVICOS WHERE NFI_IDF = :NFI_IDF'
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <
      item
        DataType = ftInteger
        Name = 'NFI_IDF'
        ParamType = ptInput
      end>
    BeforePost = SQLC_ItensServicoBeforePost
    DBConnection = DtmGeral.ConexaoBanco
    Left = 568
    Top = 16
    object SQLC_ItensServicoNFI_IDF: TIntegerField
      FieldName = 'NFI_IDF'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object SQLC_ItensServicoNFS_SEQ: TSmallintField
      FieldName = 'NFS_SEQ'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object SQLC_ItensServicoNFS_DESCRICAO: TMemoField
      FieldName = 'NFS_DESCRICAO'
      Required = True
      BlobType = ftMemo
      Size = 1
    end
    object SQLC_ItensServicoNFS_VALOR_UNITARIO: TFMTBCDField
      FieldName = 'NFS_VALOR_UNITARIO'
      Required = True
      Precision = 15
      Size = 3
    end
    object SQLC_ItensServicoNFS_VALOR_TOTAL: TFMTBCDField
      FieldName = 'NFS_VALOR_TOTAL'
      Required = True
      Precision = 15
      Size = 3
    end
  end
  object dsItensServico: TDataSource
    AutoEdit = False
    DataSet = SQLC_ItensServico
    Left = 488
  end
  object Qry_NFS: TSQLQuery
    MaxBlobSize = -1
    Params = <>
    SQLConnection = DtmGeral.ConexaoBanco
    Left = 280
    Top = 80
  end
end
